home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SLANT.ZIP / SLANT.INI < prev   
INI File  |  1997-01-05  |  21KB  |  476 lines
  1. [Aliases]
  2. n0=mailoptions {
  3. n1=  set %autoget $?="Autoget mail on connect? (Y/N)"
  4. n2=  if %autoget == $null { set %autoget Y }
  5. n3=  set %forgetpass $?="Forget password? (Y/N)"
  6. n4=  if (%forgetpass == $null) { set %forgetpass Y }
  7. n5=  if (%forgetpass == Y) { unset %pop.pass }
  8. n6=  echo 4 $active Options are set :  Autoget mail on connect : %autoget and Forget Password : %forgetpass
  9. n7=}
  10. n8=mailcheck {
  11. n9=  { set %pop.host $$?="What host to use (ip-number)" }
  12. n10=  { set %pop.user $$?="Username?" }
  13. n11=  { set %pop.pass $$?="Password?" }
  14. n12=  .creq auto
  15. n13=  .enable #mail
  16. n14=  set %mail.n $me
  17. n15=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(%pop.host) 110 $+ $chr(1)
  18. n16=}
  19. n17=seemail {
  20. n18=  if (%mail.win == $null) { echo 4 $active Not connected to mail server | halt }
  21. n19=  if ($1 == $null) { echo 4 %mail.win *** Syntax : /seemail <message-number $chr(124) all> }
  22. n20=  elseif ($1 == all) { set %mail.counter 1 | getmail | .timer653 0 5 getmail }
  23. n21=  else { msg = $+ %mail.n RETR $1 }
  24. n22=}
  25. n23=getmail { 
  26. n24=  if (%mail.counter <= %mail.messages) { msg = $+ %mail.n RETR %mail.counter | inc %mail.counter }
  27. n25=  else { .timer653 off | unset %mail.counter }
  28. n26=}
  29. n27=quitmail { msg = $+ %mail.n quit }
  30. n28=/awmsg /timer89 0 $1 /ame is away | *2 |   4\\Slant// Away Message - | /away *2 | /set %oldnick $me | /nick $me $+ -Away
  31. n29=/back /timer89 off | /nick %oldnick | /away | /ame is back 12« $Nick Has Returned « 4\\Slant// -
  32. n30=/op /mode # +o $*
  33. n31=/deop /mode # -o $*
  34. n32=/tim2 {
  35. n33=  //msg $active 1,15 1,14 4,1  $+ $rtime 1,14 1,15á 4\\Slant//
  36. n34=}
  37. n35=/rtime {
  38. n36=  set %realtime $time
  39. n37=  set %hour $token(1,58,%realtime)
  40. n38=  set %type AM  
  41. n39=  if (%hour = 0) /set %hour 12 
  42. n40=  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
  43. n41=  if (%hour = 12) /set %type PM
  44. n42=  set %min $token(2,58,%realtime)
  45. n43=  set %realtime %hour $+ : $+ %min %type
  46. n44=  if (%online = on) /set %online %realtime 
  47. n45=  unset %hour | /unset %min | /unset %type | /return %realtime
  48. n46=}
  49. n47=/onquit {
  50. n48=  .timer750 1 30 /unset %split
  51. n49=  .timer751 1 30 /unset %splitlist
  52. n50=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  53. n51=    set %split2 $token(1,46,$parm2)
  54. n52=    set %split $token(1,46,$parm1)
  55. n53=    if %split !isin %splitlist {
  56. n54=      set %splitlist %splitlist %split
  57. n55=      amsg ------------------------12Possible Split----------------------------
  58. n56=      amsg Netsplit:  $+ %split $+ / $+ %split2 $+  4\\Slant//  
  59. n57=      amsg ---------------------------12DagoWare 96------------------------
  60. n58=    }
  61. n59=  }
  62. n60=}
  63. n61=/c {
  64. n62=  set %rk $$?1="EnteráText" *2
  65. n63=  %rk = $replace(%rk,a,15a)
  66. n64=  %rk = $replace(%rk,b,14b)
  67. n65=  %rk = $replace(%rk,c,13c)
  68. n66=  %rk = $replace(%rk,d,12d)
  69. n67=  %rk = $replace(%rk,e,11e)
  70. n68=  %rk = $replace(%rk,f,10f)
  71. n69=  %rk = $replace(%rk,g,2g,)
  72. n70=  %rk = $replace(%rk,h,8h)
  73. n71=  %rk = $replace(%rk,i,7i)
  74. n72=  %rk = $replace(%rk,j,6j)
  75. n73=  %rk = $replace(%rk,k,5k)
  76. n74=  %rk = $replace(%rk,l,4l)
  77. n75=  %rk = $replace(%rk,m,3m)
  78. n76=  %rk = $replace(%rk,n,15n)
  79. n77=  %rk = $replace(%rk,o,14o)
  80. n78=  %rk = $replace(%rk,p,13p)
  81. n79=  %rk = $replace(%rk,q,12q)
  82. n80=  %rk = $replace(%rk,r,11r)
  83. n81=  %rk = $replace(%rk,s,10s)
  84. n82=  %rk = $replace(%rk,t,2t)
  85. n83=  %rk = $replace(%rk,u,8u)
  86. n84=  %rk = $replace(%rk,v,7v)
  87. n85=  %rk = $replace(%rk,w,6w)
  88. n86=  %rk = $replace(%rk,y,4y)
  89. n87=  %rk = $replace(%rk,z,3)
  90. n88=  %rk = $replace(%rk,!,15í)
  91. n89=  %rk = $replace(%rk,?,4,14┐)
  92. n90=  /say %rk
  93. n91=}
  94. n92=/status { 
  95. n93=  /echo 4 $me Status ÖBeGiNÖ
  96. n94=  /echo 4 You are running Ö12\\Slant//Ö by 12DagoWare 96...  
  97. n95=  /echo 4 You are on $server at $time $date 
  98. n96=  /echo 4 there are $opnick(0,#) ops, there are $nopnick(0,#) regulars, and there are $nick(0,#) total people in # ..... |
  99. n97=  /echo 4 Nick: ( $+ $me $+ )
  100. n98=  /echo 4 IP: ( $+ $ip $+ )
  101. n99=  /echo 4 Host: ( $+ $host $+ )
  102. n100=  /echo 4 Server: ( $+ $dde mirc connected "" to $server $+ )
  103. n101=  /echo 4 Away: ( $+ %awaymessage $+ )
  104. n102=  /echo 4 Connected: ( $+ %hr hour(s) and %min minute(s))
  105. n103=  /echo 4 Date: ( $+ $fulldate $+ )
  106. n104=  /echo 4 $me Status ÖEndÖ
  107. n105=  /echo 4 ------ÖStatus EndÖ-------
  108. n106=}
  109. n107=timeon { timer2050 0 1 /seconds | %days = 0 | %hours = 0 | %minutes = 0 | %seconds = 0 }
  110. n108=seconds { 
  111. n109=  inc %seconds 1 | titlebar %days days %hours hrs %minutes mins %seconds secs
  112. n110=  if (%seconds = 60) { %seconds = 0 | inc %minutes 1 }
  113. n111=  if (%minutes = 60) { %minutes = 0 | inc %hours 1 | dong }
  114. n112=  if (%hours > 24) { %hours = 0 | inc %days 1 }
  115. n113=}
  116. n114=timeoff { timer2050 off }
  117. n115=dong { ame I have Been online %days days , %hours hours , %minutes minutes and %seconds seconds =) 4\\Slant// By: 12DagoWare 96 | return 1 }
  118. n116=/clonelist {
  119. n117=  remini clone.ini ADDRESSES
  120. n118=  set %chan $chan
  121. n119=  set %info $$1
  122. n120=  enable #easyclone
  123. n121=  unset %numb  
  124. n122=  unset %number@*
  125. n123=  unset %clones@*
  126. n124=  unset %displayed.addies  
  127. n125=  unset %addy  
  128. n126=  who %info
  129. n127=  if (%info == %star) { set %info $chan }
  130. n128=}
  131. n129=/showclones {
  132. n130=  echo 4  [(░Ä Checking and Adding Addresses Ä░)]
  133. n131=  echo 4 [(░Ä Searching for 04Clones in Domain: 12 $+ %info $+  Ä░)]
  134. n132=  set %addy.read 0
  135. n133=  :beginning
  136. n134=  inc %addy.read 
  137. n135=  set %addy $readini clone.ini ADDRESSES address [ $+ [ %addy.read ] ]
  138. n136=  if (%addy == $null) { echo 4 [(░Ä Clone Listing Complete Ä░)] | if %numb == $null set %numb 0 | unset %nick.name | echo 4 [(░Ä %numb Groups of Clones found Ä░)] |  echo 4 [(░Ä \\Slant//  By:DagoWare 96  Ä░)] | disable #easyclone | halt }
  139. n137=  if (%number@ [ $+ [ %addy ] ] > 1) { inc %numb | goto show }
  140. n138=  goto beginning
  141. n139=  :show
  142. n140=  if %addy isin %displayed.addies goto no
  143. n141=  echo 4  4[(░Ä $+ %numb $+ Ä░)] [(░Ä  $+ %clones@ [ $+ [ %addy ] ] $+ ( $+ %addy $+ ) Ä░)]
  144. n142=  set %displayed.addies %displayed.addies %addy
  145. n143=  goto beginning
  146. n144=  :no
  147. n145=  dec %numb
  148. n146=  goto beginning
  149. n147=}
  150. n148=/net_search /enable #Net_Scan | /who
  151. n149=/clonejoin {
  152. n150=  if $nick != $me {
  153. n151=    set %count 0 | /unset %clonejoin
  154. n152=    :start
  155. n153=    inc %count 1
  156. n154=    if $nick(%count,$chan) == $null goto end
  157. n155=    if $nick == $nick(%count,$chan) goto start
  158. n156=    if $address($nick(%count,$chan),3) == $address($nick,3) set %clonejoin %clonejoin $nick(%count,$chan) &
  159. n157=    goto start
  160. n158=    :end
  161. n159=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | echo 4 #mIRC_Scripts 12-=4 $+ %clonejoin $+ 12=- are CLONES! | echo 4 #mIRC_Scripts 12-=4 $+ $address($nick,3) $+ 12=- 4\\Slant// } 
  162. n160=    unset %count | /unset %clonejoin
  163. n161=  }
  164. n162=}
  165. n163=/F8 /onotice 12(**4W@llops!12**)  $$?="W@LLOP MSG"
  166. n164=/F9 /onotice [(^«^Wallops!^«^)]  $$?="W@LLOP MSG"
  167.  
  168. [mPopup]
  169. n0=\\User Definable Variables//
  170. n1=.Set info about yourself:/set -q %info $$?="Enter some info. about yourself"
  171. n2=.Set The nickname you use on IRC:/set -q %owner $$?="Enter the nick. you use on IRC"
  172. n3=.Set your home channel:/set -q %home $$?="Enter your home channel with the #"
  173. n4=.Set your un-idle channel:/set -q %unidle $$?="Enter a channel name with the # that u will unidle in"
  174. n5=.Set your un-idle message:/set -q %unidlemsg $$?="Enter what u will say for an unidle msg"
  175. n6=.Set your Pager path and wave filename:/set -q %pagef $$?="Enter the path and filename of your pager sound"
  176. n7=\\Extras//
  177. n8=.Exit mIRC:/exit
  178. n9=.Get Latest Version:/msg Dago Requesting Newer Version, Present Version 1.0: | /notice $me Requesting Newer Version From Dago.
  179. n10=\\Quits//
  180. n11=.Regular Quit:/quit 4\\Slant// By:12DagoWare 96
  181. n12=.Kill:/quit killedá( $+ $$?="IRCop Name" ( $+ $$?="Reason" $+ ))
  182. n13=.Netsplit:/quit $$?="Server #1" $$?="Server #2"
  183.  
  184. [qPopup]
  185. n0=\\Mail Stuff// <Only Works When Connected To Mail Server>
  186. n1=.See E-Mail:/seemail
  187. n2=.Get EMail:/getmail 1
  188. n3=.Quit E-Mail:/quitmail
  189. n4=\\CTCP//
  190. n5=.Ping:/ctcp $$1 ping
  191. n6=.Version:/ctcp $$1 version
  192. n7=.Clientinfo:/ctcp $$1 clientinfo
  193. n8=.Page:/ctcp $$1 page
  194. n9=\\DCC//
  195. n10=.DCC Chat:/dcc chat $$1
  196. n11=.DCC Send:/dcc send $$1
  197.  
  198. [cPopup]
  199. n0=\\Clone Stuff//
  200. n1=.Clone Scan:/clonelist $?="Enter Domain/Channel" 
  201. n2=.Scan Network For Clones:/net_Search
  202. n3=\\Mail Stuff//
  203. n4=.Check Email:/mailcheck
  204. n5=.Email Options:/mailoptions
  205. n6=.Quit E-Mail:/quitmail
  206. n7=\\Auto Message//
  207. n8=.On:/timer5 $$?="# of times" $$?="Time Interval" /describe $chan $$?="Enter Message" -4 \\Slant// Auto Message -
  208. n9=.Off:/timer5 off
  209. n10=\\Away//
  210. n11=.On:/set %awaytime $time | /awmsg $$?="Time Interval" $$?="Away Message"
  211. n12=.Off:/back
  212. n13=\\Titlebar Timer//
  213. n14=.On:/timeon
  214. n15=.Off:/timeoff
  215. n16=.Show:/dong
  216. n17=\\Accessories//
  217. n18=.Applications
  218. n19=..Notepad:/run $dir notepad.exe
  219. n20=.Show Your Status:/status
  220. n21=.Say Something in Colors:/c $$?="Text You Want Colored" 
  221. n22=.Tell Everyone The Time:/tim2
  222. n23=.Autopinger
  223. n24=..Enable:/enable #autopinger
  224. n25=..Disable:/disable #autopinger
  225. n26=.Fserver
  226. n27=..Enable:/enable #fserv | /ame ÿÿ \\Slant//: Fserve enabled - type !Slant to accces it ÿ
  227. n28=..Disable:/disable #fserv | /ame ÿÿ \\Slant//: Fserve disabled ÿ
  228. n29=\\User Definable Variables//
  229. n30=.Set info about yourself:/set -q %info $$?="Enter some info. about yourself"
  230. n31=.Set The nickname you use on IRC:/set -q %owner $$?="Enter the nick. you use on IRC"
  231. n32=.Set your home channel:/set -q %home $$?="Enter your home channel with the #"
  232. n33=.Set your un-idle channel:/set -q %unidle $$?="Enter a channel name with the # that u will unidle in"
  233. n34=.Set your un-idle message:/set -q %unidlemsg $$?="Enter what u will say for an unidle msg"
  234. n35=.Set your Pager path and wave filename:/set -q %pagef $$?="Enter the path and filename of your pager sound"
  235. n36=\\Quits//
  236. n37=.Regular Quit:/quit 4\\Slant// By:12DagoWare 96
  237. n38=.Kill:/quit killedá( $+ $$?="IRCop Name" ( $+ $$?="Reason" $+ ))
  238. n39=.Netsplit:/quit $$?="Server #1" $$?="Server #2"
  239.  
  240. [lPopup]
  241. n0=\\DALnet//
  242. n1=.Nickserv
  243. n2=..Identify:/msg nickserv identify %npassword
  244. n3=..Set
  245. n4=...Password:/npwd $$?="Enter New Password"
  246. n5=...Kill
  247. n6=....On:/msg nickserv set kill on
  248. n7=....Off:/msg nickserv set kill off
  249. n8=....URL:/msg nickserv set url $$?="Enter New URL"
  250. n9=.Chanserv
  251. n10=..Identify
  252. n11=...Ancanthrax:/msg chanserv identify #ancanthrax %#ancanthraxpwd
  253. n12=...Fyndhorn:/msg chanserv identify #fyndhorn %#fyndhornpwd
  254. n13=..Register:/pwd # $$?="Enter Channel Password" $$?="Enter Channel Description"
  255. n14=..Set
  256. n15=...Mlock:/msg chanserv set # mlock $$?="channel modes to set"
  257. n16=...Topiclock:/msg chanserv set # topiclock $$?="Founder, Sop, or Off?"
  258. n17=...Description:/msg chanserv set # desc $$?="New Description"
  259. n18=...URL:/msg chanserv set # url $$?="Enter Channel's URL"
  260. n19=...Private
  261. n20=....On:/msg chanserv set # private on
  262. n21=....Off:/msg chanserv set # private off
  263. n22=..OpList
  264. n23=...AOP
  265. n24=....Add:/msg chanserv aop # add $$1
  266. n25=....Delete:/msg chanserv aop # del $$1
  267. n26=...SOP
  268. n27=....Add:/msg chanserv sop # add $$1
  269. n28=....Delete:/msg chanserv sop # add $$1
  270. n29=..Akick:/msg chanserv akick # add $$1
  271. n30=..Drop:/msg chanserv drop #
  272. n31=..Mass DeOp:/msg chanserv mdeop $$?="Channel TO Perform MDeOp"
  273. n32=..Mass Kick:/msg chanserv mkick $$?="Channel To Perform Mkick"
  274. n33=\\Control//
  275. n34=.BanKicks -- Temporary
  276. n35=..BanKick -- Op Begger:/mode # +b $1 | /kick # $1 Op Begger | /timer 1 30 /mode # -b $1
  277. n36=..BanKick -- Annoying:/mode # +b $1 | /kick # $1 Stop The Annoyance | /timer 1 30 /mode # -b $1
  278. n37=..BanKick -- Caps:/mode # +b $1 | /kick # $1 Shouting-->Bad | /timer 1 30 /mode # -b $1
  279. n38=..BanKick -- Regular:/mode # +b $1 | /kick # $1 4\\Slant//  | /timer 1 30 /mode # -b $1
  280. n39=..BanKick -- Enter Reason:/kick # $1 $?=öEnter Reasonö | /mode # +b $1 | /timer 1 30 /mode # -b $1
  281. n40=.BanKick -- Permanent
  282. n41=..BanKick -- Enter Reason:/kick # $1 $?=Enter Reason | /ban $1 2
  283. n42=.Give Ops:/mode # +ooo $$1
  284. n43=.DeOp
  285. n44=..Regular:/mode # -ooo $$1
  286. n45=..Chanserv:/msg chanserv deop # $$1
  287. n46=.Voice:/mode # +v $$1
  288. n47=.MDe-Op:/mode # -oooo $$1 $2 $3 $4 | /mode # -oooo $5 $6 $7 $8 | /mode # -oooo $9 $10 $11 $12 | /mode # -oooo $13 $14 $15 $16 | /describe # 4\\Slant//:MDe-Op
  289. n48=.Mass Op:/mode # +oooo $$1 $2 $3 $4 | /mode # +oooo $5 $6 $7 $8 | /mode # +oooo $9 $10 $11 $12 | /mode # +oooo $13 $14 $15 $16 | /describe # 4\\Slant//:Mass Op
  290. n49=.Mass Message
  291. n50=..Describe:/ame $$?="Mass Describe Message" 4\\Slant// By: 12DagoWare 96
  292. n51=\\Offensive Nick//
  293. n52=.With Reason:/guser 69 $1 3 | /me Thinks That $1 Has An Offensive Nick! | /me 's Reason Is: $?="Enter Reason:" | /say He/She Has 30 Seconds To Change It! | /notice $1 Change Your Nick Or You Will Be Kicked And Banned In Here! | /timer15 1 30 /kick # $1 4\\Slant// Offensive Nick!
  294. n53=.No Reason:/guser 69 $1 3 | /me Thinks That $1 Has An Offensive Nick! | /say He/She Has 30 Seconds To Change It! | /notice $1 Change Your Nick Or You Will Be Kicked And Banned In Here! | /timer15 1 30 /kick # $1 4\\Slant// Offensive Nick!
  295. n54=\\Kicking//
  296. n55=.MassKick:/kick # $* Mass Kick! 4\\Slant// By: 12DagoWare 96
  297. n56=.Anoying:/msg # $nick is getting on my nerves. | /kick # $$1 Weirdo. 4\\Slant//
  298. n57=.Weird:/kick # $$1 Blastoff!!!! Weirdo.4\\Slant//
  299. n58=.Regular Kick:/kick # $$14\\Slant//
  300. n59=\\Ignore//
  301. n60=.Ignore:/ignore $$* | /msg $nick $upper($nick), You have been added to the ignore list of $me  ÖÖ REASON: ÖÖ $?="Enter reason" ÖÖ | /msg # $upper($$1) Has been added to the IGNORE list of $Nick. 4\\Slant// By: 12DagoWare 96
  302. n61=.Remove:/msg # $upper($$1) has been removed from the IGNORE list of $me! $upper($$1) is lucky. 4\\Slant// By: 12DagoWare 96 | /ignore -r $$1
  303. n62=\\CTCP//
  304. n63=.Ping:/ctcp $$1 ping
  305. n64=.Page:/ctcp $$1 Page
  306. n65=.Version:/ctcp $$1 version
  307. n66=.Clientinfo:/ctcp $$1 clientinfo
  308. n67=\\DCC//
  309. n68=.DCC Chat:/dcc chat $$1
  310. n69=.DCC Send:/dcc send $$1
  311. n70=.DCC Send \\Slant//:/dcc send $$1 C:\mirc\slant.zip
  312. n71=-
  313. n72=\\Info//
  314. n73=.Whois:/whois $$1
  315. n74=.Query:/query $$1
  316. n75=.UCentral:/uwho $1
  317. n76=.Chaninfo:/msg chanserv info $$?="Channel Name"
  318. n77=.Using:/describe # is using 4\\Slant// By:12DagoWare 96 For 6mIRC 4.7 | /describe # To get it Msg Dago or EMail 12DagoWare 96 at: Dago@Hotmail.com 
  319.  
  320. [Variables]
  321. n0=%seconds 29
  322. n1=%minutes 1
  323.  
  324. [Commands]
  325. n0=1:CLIENTINFO:notice $nick 13 You are $nick $+ ,calling from $ip - $site - $server - $Port (enough info?) 4\\Slant// | halt
  326. n1=1:Version:notice $Nick I am Using 4\\Slant// By: 12DagoWare 96
  327. n2=1:Page:notice $Me You are Being Paged By $Nick! | /notice $Nick Your Page Has Been Received! | /beep | /beep
  328.  
  329. [Events]
  330. n0=1:ON JOIN:#:/clonejoin
  331. n1=1:on notice:*This nick is owned*:*: {
  332. n2=  if (($me = <your registered nick>) && ($nick = nickserv)) { /msg nickserv identify <password> | /halt }
  333. n3=  elseif ($nick = chanserv) /echo 2 Better change nick quick!
  334. n4=}
  335. n5=#autopinger start
  336. n6=1:on text:*ping me*:#:/ctcp $nick ping
  337. n7=1:on ctcpreply:*: {
  338. n8=  if $parm1 == PING {
  339. n9=  %pt = $ctime - $parm2 }
  340. n10=  if %pt > 1 || %pt < 1 {
  341. n11=    echo 4 $active $nick PONG 12\\Slant// AUTO-PING reply %pt seconds
  342. n12=  ctcp $nick PONG 12\\Slant// AUTO-PINGáreply :  %pt seconds  }
  343. n13=  {
  344. n14=    else { ctcp $nick PONG 12\\Slant// AUTO-PING reply : %pt second
  345. n15=    echo 4 $active $nick PONG 12\\Slant// AUTO-PING reply %pt second }
  346. n16=  halt }
  347. n17=}
  348. n18=#autopinger end
  349. n19=#fserve start
  350. n20=1:on text:!Slant:#:/fserve $nick 2 c:\mirc c:\mirc\welcome.txt
  351. n21=#fserve end
  352. n22=1:on filesent:*.*: {
  353. n23=  /msg $nick Your download of $nopath($filename) is done, enjoy... 4\\Slant// By: 12DagoWare 96
  354. n24=  /unset % $+ $nick $+ canget $+ $filename
  355. n25=  /write $mircdir $+ download.log Sent $nopath($filename) to -= $+ $nick $+ =- on $fulldate 
  356. n26=}
  357. n27=1:on filercvd:*.zip,*.exe,*.com,*.arj,*.a0*,*.rar,*.r0*,*.0*,*.txt,*.cab: {
  358. n28=  if ( $lof($filename) == % [ $+ [ $filename ] ] ) { 
  359. n29=    /msg $nick Sorry, this file has already been uploaded. 4\\Slant// By: 12DagoWare 96
  360. n30=    /unset % [ $+ [ $filename ] ] 
  361. n31=  }
  362. n32=  else { 
  363. n33=    %temp = %ratio * $lof($filename) 
  364. n34=    /inc % $+ ( $+ $nick $+ ) %temp 
  365. n35=    /write $mircdir $+ upload.log Received $filename from $nick 
  366. n36=    /msg $nick Thank you for uploading!
  367. n37=  }
  368. n38=}
  369. n39=1:on filercvd:*.*:/msg $nick Sorry, you have not uploaded a valid file, please upload one of the valid files: *.zip, *.arj, *.rar, *.exe, *.com, *.txt, *.cab 4\\Slant// By: 12DagoWare 96
  370. n40=#mail start
  371. n41=1:ON CHATOPEN {
  372. n42=  if ($nick == %mail.n) {
  373. n43=    .creq ask
  374. n44=    if $nick != %mail.n { goto end }
  375. n45=    set %mail.win Dago'sá -4\\Slant// 
  376. n46=    set %mail.usergiven done
  377. n47=    msg = $+ %mail.n USER %pop.user
  378. n48=    query %mail.win
  379. n49=    echo 6 %mail.win Welcome to Dago's -4\\Slant// - Mail Server
  380. n50=    echo 2 %mail.win -
  381. n51=    echo 2 %mail.win *** Connecting to %pop.host
  382. n52=    echo 2 %mail.win -
  383. n53=    :end
  384. n54=  }
  385. n55=}
  386. n56=1:ON CHAT:* {
  387. n57=  if ($nick == %mail.n) {
  388. n58=    if ($parm1 == +OK) {
  389. n59=      if ($parm3 == POP3) { echo 2 %mail.win *** Connected to $parm2 | echo 2 %mail.win - }
  390. n60=      if ((pass isin $parms) && (%mail.usergiven == done)) { .msg = $+ %mail.n PASS %pop.pass | unset %mail.usergiven | if (%forgetpass == Y) { unset %pop.pass } }
  391. n61=      if (($parm2 == Mailbox) && ($parm3 == open,)) {
  392. n62=        if ($parm4 > 0) { 
  393. n63=          echo 4 %mail.win You have $parm4 message(s) waiting
  394. n64=          msg = $+ %mail.n LIST
  395. n65=          set %mail.messages $parm4
  396. n66=          if (%autoget == Y) { 
  397. n67=            set %mail.counter 1
  398. n68=            getmail
  399. n69=            .timer653 0 5 getmail
  400. n70=          }
  401. n71=        }
  402. n72=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit }
  403. n73=      }
  404. n74=      if ($parm3 == messages) {
  405. n75=        if ($parm2 > 0) { echo 4 %mail.win You have $parm2 message(s) waiting | set %mail.messages $parm2 | if (%autoget == Y) { set %mail.counter 1 | getmail | .timer653 0 5 getmail } }
  406. n76=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit } 
  407. n77=      }
  408. n78=    }
  409. n79=    elseif ($parm1 == X-Authentication-Warning:) || ($parm1 == status:) || ($parm1 == X-Mailer:) { halt }
  410. n80=    elseif ($parm1 == received:) || ($parm1 == comments:) || ($parm1 == Received:) || ($parm1 == Priority:) { halt }
  411. n81=    elseif (($parm1 == id:) || ($parm1 == Message-Id:) || ($parm1 == Content-Type:) || ($parms == .)) { halt }
  412. n82=    elseif ($parm1 == -ERR) { 
  413. n83=      if ($parm2 == Bad) && ($parm3 == login) { echo 4 %mail.win Error : $parm2* | msg = $+ %mail.n quit }
  414. n84=      else { echo 4 %mail.win Error : $parm2* }
  415. n85=    }
  416. n86=    elseif ($parms == $null) { echo 4 %mail.win - - }
  417. n87=    elseif ($parm1 isnum) { echo 4 %mail.win Message $parm1 : $parm2 bytes }
  418. n88=    else { echo 4 %mail.win - - $parms }
  419. n89=  }
  420. n90=}
  421. n91=1:ON CHATCLOSE {
  422. n92=  if $nick != %mail.n { halt }
  423. n93=  echo 1 %mail.win -
  424. n94=  echo 1 %mail.win *** Disconnected
  425. n95=  .disable #mail
  426. n96=  if (%forgetpass == Y) { unset %pop.pass }
  427. n97=  .timer 1 1 /close -c %mail.n
  428. n98=  unset %mail.win %mail.messages %mail.counter %mail.n %mail.usergiven
  429. n99=}
  430. n100=#mail end
  431. n101=!1:ON QUIT:/onquit
  432. n102=1:ON TEXT:>Slant:#:/dcc send $Nick C:\mirc\Slant.zip
  433.  
  434. [Raw]
  435. n0=#Net_Scan disabled
  436. n1=352:*: {
  437. n2=  if (%cln == $null) { %cln = echo 4 }
  438. n3=  if (%clnnick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %clnaddlist) { set %clnaddlist %clnaddlist $parm4 } 
  439. n4=  set %clnnick $+ $parm4 [ %clnnick [ $+ [ $parm4 ] ] ] $parm6 | halt
  440. n5=}
  441. n6=315:*: {
  442. n7=  %cln %clnchan $str(50,=)
  443. n8=  %cln á á á á á á á á Clones On Current Network. . .
  444. n9=  %cln á
  445. n10=  %clnc = 1 | if (%clnaddlist == $null) { %cln %clnchan (No Clones Detected) | goto end }
  446. n11=  else { goto loop }  
  447. n12=  :loop
  448. n13=  %cln %clnchan  Clones: %clnnick [ $+ [ $token(%clnc,32,%clnaddlist) ] ] @ $+ $token(%clnc,32,%clnaddlist)
  449. n14=  inc %clnc | if ($token(%clnc,32,%clnaddlist) != $null) goto loop
  450. n15=  :end
  451. n16=  %cln á
  452. n17=  %cln á á á á á á á á Script By: DagoWare 96
  453. n18=  %cln %clnchan $str(50,=)
  454. n19=  unset %temp %cln* | disable #Net_Scan | halt
  455. n20=}
  456. n21=#Net_Scan end
  457. n22=#easyclone disabled
  458. n23=352:* {
  459. n24=  inc %nick.name 
  460. n25=  writeini clone.ini ADDRESSES address [ $+ [ %nick.name ] ] $parm4
  461. n26=  inc %number@ [ $+ [ $parm4 ] ]
  462. n27=  if (%number@ [ $+ [ $parm4 ] ] >= 2) { set %clones@ [ $+ [ $parm4 ] ] %clones@ [ $+ [ $parm4 ] ] - $parm6 }
  463. n28=  else { set %clones@ [ $+ [ $parm4 ] ] %clones@ [ $+ [ $parm4 ] ] $parm6 }
  464. n29=}
  465. n30=315:* {
  466. n31=  /showclones
  467. n32=}
  468. n33=#easyclone end
  469. n34=315:* {
  470. n35=  echo 4 *
  471. n36=}
  472. n37=}
  473. n38=311: /whois $parm2 is nick, $parm3 is left of @, $parm4 is right of @
  474. n39=312: /whois $parm3 is server
  475. n40=313: /whois $pa
  476.